;; Ackermann函数是一个经典的递归函数，其增长速度非常快，适合用来测试解释器或编译器的性能。
(define A
  (lambda (m n)
    (cond ((= m 0) (+ n 1))
          ((= n 0) (A (- m 1) 1))
          (else (A (- m 1) (A m (- n 1)))))))
;; "测试引号显示"

(A 3 9)

